home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / l2100.zip / LOGSTUFF.REF < prev    next >
Text File  |  1997-05-22  |  1KB  |  49 lines

  1. ;daily log functions are here
  2.  
  3. @#readlog
  4. @pauseon
  5. @show
  6. `r0`c                     `%The Daily Happenings for day &time
  7. `2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  8. @if lognow.txt exist false then do
  9.  @begin
  10.  @writefile lognow.txt
  11.   `2Young Nedrick comes home crying - he says he saw an old woman!  Eww!
  12.                                  `2-`0=`2-`%=`2-`0=`2-
  13. @pauseoff
  14. @end
  15.  
  16. @if lognow.txt exist true then do
  17.  @begin
  18.  @displayfile lognow.txt
  19.  @end
  20.  
  21.  
  22.  
  23. @label logprompt
  24.  
  25. @do write
  26. `\          `2(`0Y`2)esterday news  (`0T`2)odays news again (`0C`2)ontinue [`0C`2] : `%
  27. @do readspecial `s01 CYT
  28.  
  29.  @if `s01 is Y then do
  30.  @begin
  31.  @do `p20 is &time
  32.  @do `p20 - 1
  33.  @pauseon
  34.  @show
  35. `r0`c               `%The Daily Happenings for yesterday, day `p20
  36. `2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  37.  @if logold.txt exist true then do
  38.  @begin
  39.  @displayfile logold.txt
  40.  @end
  41.  @pauseoff
  42.  
  43.  @do goto logprompt
  44.  @end
  45.  
  46. @if `s01 is T then goto readlog
  47.  
  48. @#alldone
  49.